home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 22 / CU Amiga Magazine's Super CD-ROM 22 (1998)(EMAP Images)(GB)[!][issue 1998-05].iso / PowerPC / Programming / PPCSmallEiffel / bin_c / short31.c < prev    next >
Encoding:
C/C++ Source or Header  |  1998-01-16  |  2.6 KB  |  102 lines
  1. /*
  2. -- ANSI C code generated by :
  3. -- SmallEiffel The GNU Eiffel Compiler -- Release (- 0.82)      --
  4. -- Copyright (C), 1994-98 - LORIA - UHP - CRIN - INRIA - FRANCE --
  5. -- Dominique COLNET and Suzanne COLLIN -    colnet@loria.fr     --
  6. --                 http://www.loria.fr/SmallEiffel              --
  7. */
  8. #include "short.h"
  9. T0* r936add_comment(T936* C,T0* a1){
  10. T0* R=NULL;
  11. /*IF*/if (((a1)==((void*)(NULL)))||((/*(IRF4.6count*/r52count(((T52*)((((T393*)((T393*)a1)))->_list/*4*/)))/*)*/)==(0))) {
  12. R=(T0*)C;
  13. }
  14. else {
  15. {T529*n=malloc(sizeof(*n));
  16. *n=M529;
  17. r529make(n,(T0*)C,a1);
  18. R=(T0*)n;
  19. }
  20. }
  21. /*FI*/return R;
  22. }
  23. int r936to_integer(T936* C){
  24. int R=0;
  25. r936error((((T936*)C))->_start_position/*8*/,((T0*)ms69_470));
  26. return R;
  27. }
  28. void r936bracketed_short(T936* C){
  29. r580hook_or(((T580*)(oBC364short_print)),((T0*)ms6_662),((T0*)ms7_662));
  30. /*[IRF3.6short*/{T936* C1=C;
  31. r580a_base_type_constant(((T580*)(oBC364short_print)),(((T936*)C1))->_to_string/*12*/);
  32. }/*]*/
  33. r580hook_or(((T580*)(oBC364short_print)),((T0*)ms8_662),((T0*)ms9_662));
  34. }
  35. int r936is_a(T936* C,T0* a1){
  36. int R=0;
  37. R=X291is_a(/*(IRF4.4run_type*/((T0*)((T209*)r936result_type()))/*)*/,X291run_type(X662result_type(a1)));
  38. /*IF*/if (!(R)) {
  39. r683add_position((((T936*)C))->_start_position/*8*/);
  40. r936error(X662start_position(a1),((T0*)ms4_662));
  41. }
  42. /*FI*/return R;
  43. }
  44. /*No:REAL_CONSTANT.is_current*/
  45. void r936make(T936* C,T0* a1,T0* a2){
  46. C->_start_position=a1;
  47. C->_to_string=a2;
  48. }
  49. /*No:REAL_CONSTANT.to_string*/
  50. /*No:REAL_CONSTANT.fz_iinaiv*/
  51. /*No:REAL_CONSTANT.unary_minus*/
  52. /*No:REAL_CONSTANT.start_position*/
  53. /*No:REAL_CONSTANT.precedence*/
  54. T0* r936to_runnable(T936* C,T0* a1){
  55. T0* R=NULL;
  56. /*IF*/if (((((T936*)C))->_current_type/*4*/)==((void*)(NULL))) {
  57. C->_current_type=a1;
  58. R=(T0*)C;
  59. }
  60. else {
  61. R=r936twin(C);
  62. /*[IRF3.3set_current_type*/((((T936*)(((T936*)R))))->_current_type)=(a1);
  63. /*]*/
  64. }
  65. /*FI*/return R;
  66. }
  67. int fBC936result_type=0;
  68. T0*oBC936result_type=NULL;
  69. T0* r936result_type(void){
  70. if (fBC936result_type==0){
  71. T0* R=NULL;
  72. fBC936result_type=1;
  73. {T209*n=malloc(sizeof(*n));
  74. *n=M209;
  75. r209make(n,NULL);
  76. R=(T0*)n;
  77. }
  78. oBC936result_type=R;}
  79. return oBC936result_type;}
  80. T0* r936twin(T936* C){
  81. T0* R=NULL;
  82. R=malloc(sizeof(*C));
  83. *((T936*)R)=*C;
  84. return R;
  85. }
  86. /*No:REAL_CONSTANT.set_current_type*/
  87. /*No:REAL_CONSTANT.atomic_precedence*/
  88. /*No:REAL_CONSTANT.current_type*/
  89. /*No:REAL_CONSTANT.is_manifest_string*/
  90. /*No:REAL_CONSTANT.is_void*/
  91. void r936error(T0* a1,T0* a2){
  92. r683add_position(a1);
  93. r683error(((T683*)(oBC364eh)),a2);
  94. }
  95. void r936short_target(T936* C){
  96. r936bracketed_short(C);
  97. /*[IRF3.6a_dot*/{T580* C1=((T580*)(oBC364short_print));
  98. r580hook_or(C1,((T0*)ms58_580),((T0*)ms67_470));
  99. }/*]*/
  100. }
  101.  
  102.